home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc v 87.d64 / tri directory (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  62 lines
  1. 100 REM "TRI DIRECTORY"
  2. 110 REM PRINTS A TINY 3-COLUMN RETURN ON A GEMINI PRINTER
  3. 120 REM MODIFIED BY R.B. WOLFF
  4. 125 REM FURTHER MODIFIED BY K. MILBURN  LIST-300
  5. 130 POKE53280,11:POKE53281,11:POKE646,15
  6. 140 XX=0
  7. 150 ESC$=CHR$(27)
  8. 160 PRINT "[147]PRINT A TINY 3-COLUMN DIRECTORY"
  9. 170 IF XX<>0 THEN 200
  10. 180 INPUT "IS THE PRINTER ON (Y[146]/N[146])  Y[157][157][157]"; A$
  11. 190 IF A$<>"Y" THEN PRINT "[145][145]";: GOTO 180
  12. 200 DIM N$(144): REM LISTS UP TO 144 FILES ON DISK
  13. 210 OPEN 15,8,15
  14. 220 OPEN 4,4
  15. 230 PRINT#4, ESC$CHR$(64);: REM RESET PRINTER  ESC @
  16. 240 PRINT#4, ESC$CHR$(66)CHR$(3);: REM SETS 17 CPI  ESC B 3
  17. 250 PRINT#4, ESC$CHR$(83)CHR$(1);: REM SUBSRIPT MODE IS SELECTED  ESC S 1
  18. 260 PRINT#4, ESC$CHR$(86)CHR$(1);: REM ???  ESC V 1
  19. 270 PRINT#4, ESC$CHR$(65)CHR$(15);: REM CHANGE LINE FEED TO 6/72" (1/12") ESC A6
  20. 280 PRINT "INSERT A DISK IN DRIVE AND"
  21. 290 PRINT "THEN PRESS ANY KEY"
  22. 300 GET A$: IF A$="" THEN 300
  23. 310 PRINT "[147]";
  24. 320 PRINT#15, "I"
  25. 330 CT=0: REM CT IS THE COUNT OF THE NUMBER OF DISK FILES
  26. 340 OPEN 2,8,0,"$0:*"
  27. 350 GET#2, A$,A$
  28. 360 GET#2, A$,A$,A$,B$
  29. 370 A=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)): REM CALC FILE SIZE
  30. 380 IF ST THEN 530
  31. 390 L$=""
  32. 400 IF CT THEN L$=MID$(STR$(A)+"   ",2,3)
  33. 410 GET#2, A$
  34. 420 IF NOT(A$=CHR$(34) OR A$="B") THEN 410: REM SEARCH FOR " OR B
  35. 430 [137] 460
  36. 440 [161]#2, A$:  [139] A$[178]"" [167] 470
  37. 450 [139] ([198](A$)[175]127)[179]32 [167] 440
  38. 455 [139] [198](A$)[177]192 [167] A$[178][199]([198](A$)[171]128): [143] CONVERT TO COMMODORE UPPERCASE
  39. 460 L$[178]L$[170]A$: [137] 440: [143] FORM NEXT FILENAME
  40. 470 L$[178][200](L$,25): [143] TRUNCATE TO AT MOST 25 CHARACTERS
  41. 480 N$(CT)[178]L$: [143] PUT FILENAME IN NAME ARRAY
  42. 490 [139] CT[178]0 [167] [153] "";L$;"WAIT": [137] 510: [143] PUT DISK ID IN REVERSE VIDEO
  43. 500 [153] L$: [143] LIST FILENAME ON SCREEN
  44. 510 CT[178]CT[170]1
  45. 520 [137] 360
  46. 530 [152]4, "";N$(0): [143] PRINT [208] INFO
  47. 540 CT[178]CT[171]1: [143] ADD FREE BLOCKS TO PRINT OUT
  48. 550 N$(CT)[178][200](N$(CT),3)[170]" "[170][202](N$(CT),4): [143] PUT BLANK IN FREE BLOCK COUNT
  49. 560 MID[178][181](CT[173]3)
  50. 561 TRI[178]2[172]MID
  51. 570 [129] I[178]1 [164] MID: [152]4, N$(I)"  "N$(I[170]MID)"  "N$(I[170]TRI): [130]
  52. 580 [139] CT[179][177]3[172][181](CT[173]3) [167] [152]4, [163]28);N$(CT): [143] CASE WHEN CT IS ODD
  53. 590 [152]4, " "
  54. 600 [152]4, ESC$[199](64): [143] RESET PRINTER  ESC @
  55. 610 [152]4, " "
  56. 620 [160] 2
  57. 630 [153] "DO YOU WANT TO PRINT ANOTHER"
  58. 640 [133] "DIRECTORY (YWAIT/NWAIT)  YCMDCMDCMD"; A$
  59. 650 [139] A$[178]"Y" [167] [156]: XX[178]1: [137] 150
  60. 660 [153] "LOAD":[151]53280,14:[151]53281,6:[151]646,14
  61. 670 [128]
  62.